home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / cg / uzu.bas < prev   
BASIC Source File  |  1995-01-22  |  1KB  |  40 lines
  1. 100 'Ryoichi.w V3.00
  2. 110 SCREEN 0:SCREEN@0:CONSOLE 0,24,2:S=1
  3. 120 *始め
  4. 130 COLOR 7,0:CLS:Y=0:C=1
  5. 140 PRINT"０＝規則的に色を出す。　１＝色をランダムに出す。　ＥＳＣ＝終了";
  6. 150 *IN1:K$=INKEY$
  7. 160  IF K$=CHR$(27) THEN END
  8. 170  IF K$="0" THEN R=0 ELSE IF K$="1" THEN R=1
  9. 180 PRINT R
  10. 190 PRINT"間隔は（↑↓キーで変更）？";:GOSUB *表示
  11. 200 *IN2
  12. 210   K$=INKEY$
  13. 220   IF K$=CHR$(30) AND S<99 THEN S=S+1:GOSUB *表示
  14. 230   IF K$=CHR$(31) AND S>1  THEN S=S-1:GOSUB *表示
  15. 240   IF K$<>CHR$(13) THEN *IN2
  16. 250    CLS
  17. 260    FOR X=0   TO 639 STEP S
  18. 270      GOSUB *LINE
  19. 280    NEXT:X=639
  20. 290    FOR Y=1   TO 479 STEP S
  21. 300      GOSUB *LINE
  22. 310    NEXT:Y=479
  23. 320    FOR X=638 TO 0   STEP -S
  24. 330      GOSUB *LINE
  25. 340    NEXT:X=0
  26. 350    FOR Y=478 TO 1   STEP -S
  27. 360      GOSUB *LINE
  28. 370    NEXT
  29. 380   '
  30. 390   WHILE INKEY$<>"":WEND
  31. 400   WHILE INKEY$= "":WEND
  32. 410   GOTO *始め
  33. 420 '
  34. 430 *LINE
  35. 440   IF R THEN C=INT(RND*7)+1 ELSE C=C+1:IF C=8 THEN C=1
  36. 450   LINE(320,240)-(X,Y),PSET,C
  37. 460   RETURN
  38. 470 '
  39. 480 *表示:LOCATE 26,1:PRINT USING" ##";S:RETURN
  40.